(read-face-name): Use `completion-table-in-turn', not `complete-in-turn'.

diff --git a/lisp/faces.el b/lisp/faces.el
index 5a0cc55a7e1fc69d5ec5d9097e76d66bb6b8b890..f30fc752fba117b9aaccf0940e1e1cac154d0313 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -986,7 +986,7 @@ Otherwise, return a single face."
                         (if faces (mapconcat 'symbol-name faces ",")
                           string-describing-default))
               (format "%s: " prompt))
-            (complete-in-turn nonaliasfaces aliasfaces)
+            (completion-table-in-turn nonaliasfaces aliasfaces)
             nil t nil nil
             (if faces (mapconcat 'symbol-name faces ","))))
           ;; Canonicalize the output.